home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 89 / Tiger_Disk_089_20xx_Tiger-Crew-Disk_de_Side_B.d64 / file-reader [tc] (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  38 lines
  1. 10 goto50
  2. 20 getxy$:ifxy$<>" "andxy$<>"e"thenreturn
  3. 30 ifxy$="e"then370
  4. 40 poke198,0:wait198,1:poke198,0:return
  5. 50 poke53280,8:poke53281,8:f$="":input"[147]filename ";f$:iff$=""thenend
  6. 60 l1$="":print"laufwerk  mit "f$"[146] ";:inputl1$:ifl1$=""thenend
  7. 70 l1=val(l1$):ifl1<8orl1>9thenprint"[145][145][145]":goto60
  8. 80 f$=f$+"*":pa$="":input"p[146]rogramm oder s[146]equenz ";pa$:ifpa$=""thenend
  9. 90 ifpa$<>"p"andpa$<>"s"then80
  10. 100 ifpa$="s"then130
  11. 110 print"noter-file ?"
  12. 120 getnf$:ifnf$<>"j"andnf$<>"n"then120
  13. 130 print"[147]  pause mit space! / abbruch mit 'e' ! ":print"";
  14. 140 open2,l1,2,f$+","+pa$+",r"
  15. 150 ifnf$="n"thenpa$="a"
  16. 160 ifpa$="p"orpa$="a"thenget#2,a$:get#2,a$
  17. 170 get#2,a$:ifa$=""thena$="@"
  18. 180 aa=asc(a$)
  19. 190 ifpa$="a"thenifaa<>13thenifaa<32then170
  20. 200 ifpa$="p"thenifaa>0thenifaa<32thenaa=aa+64
  21. 210 ifaa>96thenifaa<129thenaa=aa-32
  22. 220 ifaa>128thenifaa<193thenaa=aa-64
  23. 230 ifaa>192thenifaa<256thenaa=aa-128
  24. 240 rem                                  ---   nur fuer td-mag-texte!!     ---
  25. 250 ifaa=95thenaa=96
  26. 260 rem                                  ---   normale programmzeile!!     ---
  27. 270 a$=chr$(aa)
  28. 280 rem                                  ---   nur fuer td-mag-texte!!     ---
  29. 290 ifaa=91thenpa=1:a$="oe"
  30. 300 ifaa=92thenpa=1:a$="ss"
  31. 310 ifaa=93thenpa=1:a$="ae"
  32. 320 ifaa=94thenpa=1:a$="ue"
  33. 330 ifpa=1thenifaa=32thenpa=0:gosub20:goto360
  34. 340 rem                                  ---   ab hier wieder normal!!     ---
  35. 350 printa$;:gosub20
  36. 360 ifst<>64then170
  37. 370 close2:print:printchr$(14)"...das war's...":print"   [212]igercrew ":end
  38.